home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / MAINMENU.PRG < prev    next >
Text File  |  1985-12-30  |  527b  |  23 lines
  1. * MAINMENU.PRG
  2. * This is a sample menu to demonstrate logon/logoff capabilities 
  3. * of the DBPASSWD program
  4.  
  5. clear
  6. store space(1) to answer
  7. @ 4,1
  8.  text
  9.                             SAMPLE MAIN MENU 
  10.  
  11.                     1. Add Records
  12.                     2. Edit Records
  13.                     3. Delete Records
  14.                     4. Process Data
  15.  
  16.                     5. EXIT PROGRAM
  17.  endtext
  18. do while answer <> '5'
  19.  store space(1) to answer
  20.  @ 15,10 say 'What is your choice? ' get answer
  21.  read
  22. enddo
  23. return